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28 HISTORY ; Detailed Current Edit History 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE i cei aee UNDER A LICENSE AND MAY BE USED AND gd bt 
ONLY IN ACCORDANCE WITH THE ome OF SUCH LICENSE AND WITH THE 
INCLUSION OF THe ABOVE Spd ha OTICE. THIS SOFTWARE OR ANY OTHER 
cep hs REOF MAY NOT BE P OVIDED OO OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


:* ® 
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:* ® 
** ® 
*® * 
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*® & 
tt TRANSFERRED” : 
** * 
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:* * 
:* ® 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eORPORAT ibe. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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; FACILITY: MATH LIBRARY 
: : "ABSTRACT: 
This module contains routines for the absolute value of 


INTEGER*2, INTEGER®4, REAL*4, REAL*8 (D and G types) and 
REAL*16 values. 


; VERSION: 1 
| 


; HISTORY: 


; AUTHOR: 
Jonathan M. Taylor, 14-JUL-77: Version 0 


. ; MODIFIED BY: 
Steven B. Lionel, 30-Jan-79: G and H functions 


OOONAUE WN $0 OONAUES WN 9 ODNAU EWN OOO NOAU EWN OOONOUS wr 


VEER REEL ES PWN inononononononononong 2 Ss 


OOoooooooooooooooooooooSo 
SOOCOOCQOoOoOoOoOoOoOooOooooooooo 


ooooocooo «<™ 
oooooooo 


oS 


coco Sm 
ooocococo Co wD 
oO 


o 
o 


SS . } 


E 4 
function 197 36e- 138% 9: 1:55 VAX/VMS Macro V04-00 Page g 
H Detailed Current Edit History 6=SEP-19 1:20:07 CMTHRTL.SRCIMTHABS.MAR; 1 ( 


-SBTTL HISTORY ; Detailed Current Edit History 


; Edit History for Version 1 of MTHS$ABS 


; O-3 = REMOVE MTHSFLAG_JACKET. TNH S5-July-78 

; remove MTHSJACKET_HND. TNH 26-July-78 

yecese i Py notice and ly he number. JBS 16-NOV-78 
Add G and H functions. SBL 30-Jan-79 
Correct a typo in a comment. vas "30-JUL-1979 
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ions 16-SEP-1984 01:01:5 AX/VMS Macro v04-00 Page 
pant ets 9 91 9bi8? ERTHRTL. SREIRTHABS MAR; 1 ° 3) 

¢ -SBTTL DECLARATIONS 

65 ; 

66 3; INCLUDE FILES: 

67 ; NONE 

rt: 3 

% 3 

71 ; EXTERNAL SYMBOLS: 

Me : NONE 

i> 3 

74 

Re ; MACROS 

ig J NONE 

78 ; 

79 

80 ; 

81 ; PSECT DECLARATIONS: 

Ht -PSECT _MTHSCODE PIC, SHR, LONG, EXE, NOWRT 

84; 

85 ; EQUATED SYMBOLS: 

86 ; NONE 

87 ; 

88 

89 ;: 

90 ; OWN STORAGE: 

4 3 NONE 
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8 -SBTTL MTHSIIABS | 
89 p++ 
3 3; FUNCTIONAL DESCRIPTION: | 
0 8 3 Returns the absolute value of the argument. | 
100 ; | 
20 101 ; CALLING SEQUENCE: | 
38 : ¢ ; Absolute_value.ww.v = MTHSIIABS (arg.rw.r) 
000 : : ; | 
880 1 $ 3; INPUT PARAMETERS: 
4 yf ; The one parameter is a one-word value and is call-by-reference. 
44 109 ; 
000 110 ; IMPLICIT INPUTS: 
0000 111; NONE 
0000 11 ; 
44 113 ; OUTPUT PARAMETERS: 
000 114; NONE 
0000 115; 
0000 116 ; IMPLICIT OUTPUTS: 
0000 117; NONE 
0000 118 ; 
44 119 ; COMPLETION CODES: 
000 120 ; NONE 
0000 121; 
0000 1 § ; SIDE EFFECTS: 
0000 123; Integer Overflow exception can occur. 
0000 124 ; 
0000 125; 
0000 126 ;-- 
0000 127 
4000 Bobs 128 -ENTRY MTHSIIABS “M<IV> 
50 04 BC BO 0002 129 MOVW a4(AP), RO ; RO = arg bp 
9 18 0006 130 BGEQ 1$ 3 return if positive 
50 0 AE Q0008 131 MNEGW RO, RO 3; make positive 
04 0008 132 1$: RET 
| 
| 
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++ 
FUNCTIONAL DESCRIPTION: 
Returns the absolute value of the argument. 


CALLING SEQUENCE: 
Absolute_value.wl.v =MTHSJIABS (arg.rl.r) 


INPUT PARAMETERS: 
The one parameter is a longword value and is call-by-reference. 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Integer Overflow exception can occur. 
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4000 -ENTRY MTHSJIABS “M<IV> 
50 04 B8C DO MOVL a4(AP), RO ; RO = arg 
03 «18 BGEQ $ 3; return if positive 
we eS MNEGL RO, RO 3; make positive 
04 1$: RET 
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++ 
FUNCTIONAL DESCRIPTION: 
Returns the absolute value of the argument. 


CALLING SEQUENCE: 
Absolute_value.wf.v = MTHSABS (arg.rf.r) 


; INPUT PARAMETERS: 
The one orpupens is a single-precision floating-point value 
and is call-by-reference. 


IMPLICIT INPUTS: 
NONE 
; OUSPUT PARAMETERS: 
; NONE 
IMPLICIT OUTPUTS: 
NONE 
; COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Reserved Operand exception can occur. 
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-ENTRY MTHSABS, aM<> 
MOVF Q4(AP), RO ; RO = arg 
ts #°x80060, RO : force positive 
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+ 
FUNCTIONAL DESCRIPTION: 
Return the absolute value of the argument. 


CALLING SEQUENCE: 
Absolute_value.wd.v =MTHSDABS (arg.rd.r) 


INPUT PARAMETERS: 
The one parameter is a double-precision floating-point value 
and is call-by-reference. 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Reserved Operand exception can occur. 


ENTRY aTyrpees “M<> 
MOVD RO ; RO/R1 = arg 
pice #258006, RO :; force positive 


roe 
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++ 
FUNCTIONAL DESCRIPTION: 
Return the absolute value of the argument. 


CALLING SEQUENCE: 
Absolute_value.wg.v =MTHSGABS (arg.rg.r) 


INPUT PARAMETERS: 
The one parameter is a G floating-point value 
and is call-by-reference. 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Reserved Operand exception can occur. 


FUN O ODNA UE WIN 9 O ODNOAUNE WN OOONOUSE 


0000 .ENTRY MTHSGABS aM<> 
50 04 BC 50FD MOVG  a4(AP), RO : RO/R1 = arg 
50 8000 8F AA BIC #°x8006, RO : force positive 
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++ 
FUNCTIONAL DESCRIPTION: 
Return the absolute value of the argument. 


CALLING SEQUENCE: 
CALL MTHSHABS (Absolute_value.wh.r, arg.rh.r) 


INPUT PARAMETERS: 
The input pereseter is a H floating-point value 
and is call-by-reference. 


IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 
he output parameter is an H floating-point value 
and is call-by-reference. 


; IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Reserved Operand exception can occur. 
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9000 .ENTRY MTHSHABS, aM<> 
04 BC 08 BC 70FD MOVH @8(AP), a4(AP) ; result = arg 
04 BC 8000 BF AA BIC #*x8000, a4(AP) : force positive 
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END 
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pages) of virtual memory were used to buffer the intermediate code. 

pages of symbol table space allocated to hold 6 non-local and 2 local symbols. 
345 source Lines were read in Pass 1, producing 25 object records in Pass 2. 

pages of virtual memory were used to define 0 macros. 


The working get Limit was 900 pages. 
0 


Femewwmomowewwwww ew oooooooon= + 
H Macro Library statistics : 
Macro Library name Macros defined 
_$255$DUA28: CSYSLIBISTARLET.MLB; 2 0 


0 GETS were required to define 0 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHABS/OBJ=OBJ$:MTHABS MSRC$:MTHABS/UPDATE=(ENHS : MTHABS) 


n~- 
oo 


MTHABS .MAR; 1 


MTHSABS RG 1 
MTHSDABS RG 1 
MTHSGABS 0 RG 1 
THSHABS 4 RG 1 
MTHSIIABS 000 RG 1 
MTHSJIABS OO000000C RG 1 

gos e cane an nee rwace oe 

: Psect synopsis ! 

poem eer ew eon enw er on + 
PSECT name Allocation PSECT No. Attributes 
° Ss 00000000 0.) 00 ¢ OO.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_MTHSCODE 0000004C rach Ot t- Bot PIC USR CON~ REL LCL SHR EXE RD NOWRT NOVEC LONG 

banpusueutemeneaweonenstiod 
H Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization 41 00:00:00.08 00:00:00.93 
Command processing 126 00:00:00.49 00:00:01.68 
Pass 69 00:00:00.65 00:00:02.90 
Symbol table sort 0 4 $4 82 + 88 +88 +00 
Pass 2 70 00:00:00.6 00:00:03.11 
Symbol table output 2 bs Sa 00:00:00.02 
Psect synopsis output 2 00:00:00.0 00:00:00.08 
Cross-reference output 3 00:00:00.00 00:00:00.00 
Assembler run totals 31 00:00:01.94 00:00:08.72 
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